﻿Public Class UsuarioNegocio


    Public Function insertar(ByVal nombre As String, ByVal paterno As String, ByVal materno As String, ByVal edad As Integer, ByVal usuario As String, ByVal contraseña As String, ByVal direccion As String, ByVal distrito As String, ByVal telefono As String, ByVal email As String, ByVal sexo As String) As Usuario

        Dim modelo As New Usuario()
        modelo.nombre = nombre
        modelo.ap_paterno = paterno
        modelo.ap_materno = materno
        modelo.edad = edad
        modelo.usuario = usuario
        modelo.contraseña = contraseña
        modelo.direccion = direccion
        modelo.distrito = distrito
        modelo.telefono = telefono
        modelo.email = email
        modelo.sexo = sexo

        Dim dao As New UsuarioDAO
        Return dao.insertar(modelo)
    End Function



    Public Function buscarPorNombre(ByVal nombre As String) As Collection
        Dim dao As New UsuarioDAO
        Return dao.buscarPorNombre(nombre)
    End Function

    Public Sub actualizar(ByVal idusuario As Integer, ByVal nombre As String, ByVal ap_paterno As String, ByVal ap_materno As String, ByVal edad As Integer, ByVal usuario As String, ByVal contraseña As String, ByVal direccion As String, ByVal distrito As String, ByVal telefono As String, ByVal email As String, ByVal sexo As String)

        Dim modelo As New Usuario()
        modelo.idusuario = idusuario
        modelo.nombre = nombre
        modelo.ap_paterno = ap_paterno
        modelo.ap_materno = ap_materno
        modelo.edad = edad
        modelo.usuario = usuario
        modelo.contraseña = contraseña
        modelo.direccion = direccion
        modelo.distrito = distrito
        modelo.telefono = telefono
        modelo.email = email
        modelo.sexo = sexo

        Dim dao As New UsuarioDAO
        dao.actualizar(modelo)
    End Sub


    Public Sub eliminar(ByVal idusuario As Integer)
        Dim dao As New UsuarioDAO
        dao.eliminar(idusuario)
    End Sub


    Public Function obtener(ByVal idusuario As Integer) As Usuario
        Dim dao As New UsuarioDAO
        Return dao.obtener(idusuario)
    End Function

    Public Function validar(ByVal idUsuario As String, ByVal contraseña As String) As Usuario
        Dim modelo As New Usuario
        modelo.idusuario = idUsuario
        modelo.contraseña = contraseña

        Dim dao As New UsuarioDAO
        Return dao.validar(modelo)
    End Function

    Public Function logear(ByVal usuario As String, ByVal contraseña As String)

        Dim modelo As New Usuario()
        modelo.usuario = usuario
        modelo.contraseña = contraseña

        Dim dao As New UsuarioDAO()
        Return dao.logear(modelo)
    End Function

End Class

